/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Publish / A / Alpha 5.96.sit / Tcl / UserCode / smart.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 73 6d 61 72 74 2e | 74 63 6c 00 00 00 00 00 |..smart.|tcl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 02 61 00 | 00 01 7e aa 1a fb 5f aa |......a.|..~..._.|
|00000060| 1a fb 5f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.._.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 27 70 00 00 |........|....'p..|
|00000080| 0d 0d 70 72 6f 63 20 73 | 6d 61 72 74 44 51 75 6f |..proc s|martDQuo|
|00000090| 74 65 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |te {} {.|.global |
|000000a0| 73 6d 61 72 74 51 75 6f | 74 65 73 0d 09 69 66 20 |smartQuo|tes..if |
|000000b0| 7b 21 24 73 6d 61 72 74 | 51 75 6f 74 65 73 7d 20 |{!$smart|Quotes} |
|000000c0| 7b 20 69 6e 73 65 72 74 | 54 65 78 74 20 7b 22 7d |{ insert|Text {"}|
|000000d0| 3b 20 72 65 74 75 72 6e | 20 7d 0d 09 69 66 20 7b |; return| }..if {|
|000000e0| 5b 6c 65 66 74 51 5d 7d | 20 7b 0d 09 09 69 6e 73 |[leftQ]}| {...ins|
|000000f0| 65 72 74 54 65 78 74 20 | 7b 60 60 7d 0d 09 7d 20 |ertText |{``}..} |
|00000100| 65 6c 73 65 20 7b 0d 09 | 09 69 6e 73 65 72 74 54 |else {..|.insertT|
|00000110| 65 78 74 20 7b 27 27 7d | 0d 09 7d 0d 7d 0d 61 73 |ext {''}|..}.}.as|
|00000120| 63 69 69 20 30 78 32 32 | 20 3c 73 3e 20 73 6d 61 |cii 0x22| <s> sma|
|00000130| 72 74 44 51 75 6f 74 65 | 20 54 65 58 0d 0d 70 72 |rtDQuote| TeX..pr|
|00000140| 6f 63 20 73 6d 61 72 74 | 51 75 6f 74 65 20 7b 7d |oc smart|Quote {}|
|00000150| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 73 6d 61 72 74 | {..glob|al smart|
|00000160| 51 75 6f 74 65 73 0d 09 | 69 66 20 7b 21 24 73 6d |Quotes..|if {!$sm|
|00000170| 61 72 74 51 75 6f 74 65 | 73 7d 20 7b 20 69 6e 73 |artQuote|s} { ins|
|00000180| 65 72 74 54 65 78 74 20 | 7b 27 7d 3b 20 72 65 74 |ertText |{'}; ret|
|00000190| 75 72 6e 20 7d 0d 09 69 | 66 20 7b 5b 6c 65 66 74 |urn }..i|f {[left|
|000001a0| 51 5d 7d 20 7b 0d 09 09 | 69 6e 73 65 72 74 54 65 |Q]} {...|insertTe|
|000001b0| 78 74 20 7b 60 7d 0d 09 | 7d 20 65 6c 73 65 20 7b |xt {`}..|} else {|
|000001c0| 0d 09 09 69 6e 73 65 72 | 74 54 65 78 74 20 7b 27 |...inser|tText {'|
|000001d0| 7d 0d 09 7d 0d 7d 0d 61 | 73 63 69 69 20 30 78 32 |}..}.}.a|scii 0x2|
|000001e0| 37 20 73 6d 61 72 74 51 | 75 6f 74 65 20 54 65 58 |7 smartQ|uote TeX|
|000001f0| 0d 0d 70 72 6f 63 20 6c | 65 66 74 51 20 7b 7d 20 |..proc l|eftQ {} |
|00000200| 7b 0d 09 69 66 20 7b 5b | 67 65 74 50 6f 73 5d 20 |{..if {[|getPos] |
|00000210| 3d 3d 20 30 7d 20 7b 72 | 65 74 75 72 6e 20 31 7d |== 0} {r|eturn 1}|
|00000220| 3b 0d 09 73 65 74 20 71 | 20 5b 6c 6f 6f 6b 41 74 |;..set q| [lookAt|
|00000230| 20 5b 65 78 70 72 20 5b | 67 65 74 50 6f 73 5d 2d | [expr [|getPos]-|
|00000240| 31 5d 5d 0d 09 63 61 73 | 65 20 24 71 20 69 6e 20 |1]]..cas|e $q in |
|00000250| 7b 0d 09 09 7b 5c 74 7d | 20 20 7b 72 65 74 75 72 |{...{\t}|  {retur|
|00000260| 6e 20 31 7d 0d 09 09 7b | 28 7d 20 20 7b 72 65 74 |n 1}...{|(}  {ret|
|00000270| 75 72 6e 20 31 7d 0d 09 | 09 7b 5c 7b 7d 20 20 7b |urn 1}..|.{\{}  {|
|00000280| 72 65 74 75 72 6e 20 31 | 7d 0d 09 09 7b 5b 7d 20 |return 1|}...{[} |
|00000290| 20 7b 72 65 74 75 72 6e | 20 31 7d 0d 09 09 7b 3c | {return| 1}...{<|
|000002a0| 7d 20 20 7b 72 65 74 75 | 72 6e 20 31 7d 0d 09 09 |}  {retu|rn 1}...|
|000002b0| 7b 5c 20 7d 20 7b 72 65 | 74 75 72 6e 20 31 7d 0d |{\ } {re|turn 1}.|
|000002c0| 09 09 7b 5c 72 7d 20 7b | 72 65 74 75 72 6e 20 31 |..{\r} {|return 1|
|000002d0| 7d 0d 09 7d 0d 09 72 65 | 74 75 72 6e 20 30 0d 7d |}..}..re|turn 0.}|
|000002e0| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000310| 0a 61 73 73 69 67 6e 69 | 6e 67 20 61 20 7b 5c 65 |.assigni|ng a {\e|
|00000320| 6d 20 76 65 63 74 6f 72 | 20 74 69 6d 65 73 74 61 |m vector| timesta|
|00000330| 09 73 6d 61 72 74 2e 74 | 63 6c 02 00 00 00 54 45 |.smart.t|cl....TE|
|00000340| 58 54 41 4c 46 41 01 00 | 01 a0 00 00 00 00 00 00 |XTALFA..|........|
|00000350| 00 00 54 45 58 54 41 4c | 46 41 01 00 01 a0 00 00 |..TEXTAL|FA......|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 aa 1a b5 0f 00 00 | 02 61 00 00 01 7e 72 2e |........|.a...~r.|
|00000380| 0a 54 68 65 20 65 6e 74 | 72 79 20 66 6f 72 20 70 |.The ent|ry for p|
|00000390| 72 6f 63 65 73 73 6f 72 | 20 24 70 24 20 69 6e 20 |rocessor| $p$ in |
|000003a0| 74 68 65 20 76 65 63 74 | 6f 72 20 74 69 6d 65 73 |the vect|or times|
|000003b0| 74 61 6d 70 20 6f 66 20 | 69 6e 74 65 72 76 61 6c |tamp of |interval|
|000003c0| 20 24 69 24 0a 6f 66 20 | 70 72 6f 63 65 73 73 6f | $i$.of |processo|
|000003d0| 72 20 24 70 24 20 69 73 | 20 65 71 75 61 6c 20 74 |r $p$ is| equal t|
|000003e0| 6f 20 24 69 24 2e 0a 54 | 68 65 20 65 6e 74 72 79 |o $i$..T|he entry|
|000003f0| 20 66 6f 72 20 70 72 6f | 63 65 73 73 6f 72 20 24 | for pro|cessor $|
|00000400| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 97 |...H..Mo|naco....|
|00000410| 5d d8 00 00 00 00 00 ae | 3c a0 00 02 f7 6c 03 0d |].......|<....l..|
|00000420| 00 a3 01 3c 00 00 00 04 | 00 04 00 3c 00 03 01 de |...<....|...<....|
|00000430| 02 79 00 3c 00 03 01 de | 02 79 00 0b 24 80 00 00 |.y.<....|.y..$...|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000450| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 97 5d d8 |...L...L|...2..].|
|00000460| 0f 10 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000470| 00 0a 03 ed ff ff 00 00 | 00 00 00 9d c3 8c 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+